﻿Public Class Pruebas

    Private Sub Pruebas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModificar.Click
        Dim frm As Form
        frm = New ModificarNivel(TextBox1.Text)
        frm.Visible = True
    End Sub

    Private Sub btnConsultar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultar.Click
        Dim frm As Form
        frm = New ConsultarNivel(TextBox2.Text)
        frm.Visible = True
    End Sub

    Private Sub btnConsultarDept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultarDept.Click
        Dim frm As Form
        frm = New ConsultarNiveles(TextBox3.Text)
        frm.Visible = True
    End Sub

    Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
        Dim frm As Form
        frm = New AgregarNivel(TextBox9.Text)
        frm.Visible = True
    End Sub

    Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click
        Logica.Gestor.eliminarNivel(TextBox4.Text)
        MsgBox("listo")
    End Sub

    Private Sub btnRegistrarPuesto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegistrarPuesto.Click
        Dim frm As Form
        frm = New RegistrarPuesto(TextBox10.Text)
        frm.Visible = True
    End Sub

    Private Sub btnModPuesto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModPuesto.Click
        Dim frm As Form
        frm = New ModificarPuesto(TextBox5.Text)
        frm.ShowDialog()
    End Sub

    Private Sub btnConsPuesto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsPuesto.Click
        Dim frm As Form
        frm = New ConsultarPuesto(TextBox6.Text)
        frm.ShowDialog()
    End Sub

    Private Sub btnEliminarPuesto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminarPuesto.Click
        Logica.Gestor.eliminarPuesto(TextBox7.Text)
        MsgBox("listo")
    End Sub

    Private Sub btnModificarBonif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModificarBonif.Click
        Dim frm As Form
        frm = New ConsultarBonificacion(TextBox8.Text)
        frm.ShowDialog()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class